Procedure CarregaFotoParaBanco(var Campo: TBlobField; FileName: String);
Var
stImagem: TFileStream;
begin
stImagem := TFileStream.Create(FileName, fmOpenRead or
fmShareDenyWrite );
Try
// ibdsCredenciadosFOTO  um campo BLOB SUB_TYPE 0
Campo.LoadFromStream( stImagem );
Finally
stImagem.Free;
End;
end;

Procedure ObtemImagemDoBanco(var Campo: TBlobField; var imgDestino: TImage);
Var
jpgImg: TJPEGImage;
stMem: TMemoryStream;
begin
  If Campo.IsNull Then Exit;
  jpgImg := TJPEGImage.Create;
  stMem := TMemoryStream.Create;
  Try
  Campo.SaveToStream( stMem );
  stMem.Position := 0;
  jpgImg.LoadFromStream( stMem );
  imgDestino.Picture.Assign( jpgImg );
  finally
  stMem.Free;
  jpgImg.Free;
  End;
end;
